home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 03-05.C < prev    next >
Text File  |  1992-01-31  |  571b  |  36 lines
  1. #include <fastgraf.h>
  2.  
  3. void main(void);
  4.  
  5. void main()
  6. {
  7.    int lines;
  8.    int old_lines;
  9.    int old_mode;
  10.  
  11.    old_lines = fg_getlines();
  12.    old_mode = fg_getmode();
  13.    fg_setmode(3);
  14.    fg_cursor(0);
  15.  
  16.    fg_setcolor(15);
  17.    fg_text("first line",10);
  18.    fg_waitkey();
  19.  
  20.    if (fg_testmode(16,0)) {
  21.       fg_setlines(43);
  22.       fg_cursor(0);
  23.       fg_waitkey();
  24.       }
  25.  
  26.    if (fg_testmode(17,0)) {
  27.       fg_setlines(50);
  28.       fg_cursor(0);
  29.       fg_waitkey();
  30.       }
  31.  
  32.    fg_setmode(old_mode);
  33.    fg_setlines(old_lines);
  34.    fg_reset();
  35. }
  36.